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-- BootUser.Mesa Edited by Sandman on August 14, 1978 9:47 AM 

DIRECTORY 

BootCacheDefs: FROM "bootcachedef s", 
BootmesaDefs: FROM "bootmesadefs". 
ControlDefs: FROM "controldefs", 
FakeSegDefs: FROM "fakesegdefs". 
lODefs: FROM "iodefs", 
StreamDefs: FROM "streamdef s'\ 
StringDefs: FROM "stringdef s" . 
SystemDefs: FROM "systemdef s"; 

DEFINITIONS FROM BootmesaDefs; 

BootUser: PROGRAM 

IMPORTS BootmesaDefs, lODefs, BootCacheDefs, StreamDefs, StringDefs, SystemDefs 

EXPORTS BootmesaDefs - PUBLIC 

BEGIN 

NUL: CHARACTER - lODefs.NUL; 
CR: CHARACTER ■ lODefs.CR; 

OpenSource: PUBLIC PROCEDURE [root: STRING] - 
BEGIN 

name: STRING ♦- [40]; 
i: CARDINAL; 
FOR i IN [0.. root. length) DO 

IF root[i] « • . THEN EXIT; 

StringDef s.Ap pen dChar[ name, root[i]] ; 

ENDLOOP; 
StringDef s. Appends tring[name, " .bootmesa. "L]; 
source ♦- StreamDefs. NewByteStream[name, StreamDefs. Read]; 
END; 

source: StreamDefs .StreamHandle; 

GetToken: PROCEDURE [token: STRING] RETURNS [term: CHARACTER] ■ 
BEGIN OPEN lODefs; 
token, length *- 0; 
DO 

SELECT term *- source. get[source 

I StreamDefs. StreamError «> BEGIN term <- NUL; EXIT END] FROM 
'- «> 

UNTIL source. get[source] » CR DO NULL ENDLOOP; 
SP »> NULL; 

CR ->. IF token. length ^ THEN BEGIN term ^ ';; RETURN END; 
• :, ' ;, '>. ', => RETURN; 

ENDCASE «> StringDefs. AppendChar[token, term]; 
ENDLOOP; 
END; 

module: STRING <- [40]; 
config: STRING ^ [40]; 
keyword: STRING ♦- [40]; 

GetModule: PROCEDURE [module, config: STRING] RETURNS [term: CHARACTER] ■ 
BEGIN 

module. length ^ config. length ^ 0; 
term <- GetToken[module]; 
IF term - ': THEN 
BEGIN OPEN lODefs; 

WriteString["Syntax Error. Expected module Found "L]; 
WriteString[module]; 
WriteChar[term]; 
SIGNAL BootAbort; 
END; 
IF term - '> THEN 
BEGIN 

StringDef s. Appends tring[config, module]; 
term *- GetToken[module]; 
IF term « ' : THEN 
BEGIN OPEN lODefs; 

WriteString["Syntax Error, Expected module Found "L]; 
WriteString[module]; 
WriteChar[term]; 
SIGNAL BootAbort; 
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END; 
IF term ■ '> THEN BootmesaDefs.BootmesaModu1eError[ 

"Syntax Error. Only one config name allowed "L, config, module]; 
END; 
RETURN 
END; 

GetNumber: PROCEDURE RETURNS [term: CHARACTER, n: CARDINAL] ■ 
BEGIN 

token: STRING ♦- [10]; 
null: STRING ♦- [1]; 
term ^ GetToken[token]; 
n <- StringDefs.StringToDecimal[token I 
StringDef s.InvalidNumber ■> 

BootmesaModuleError["Invalid Number"L. null, token]]; 
RETURN 
END; 

BootmesaModuleError: PUBLIC PROCEDURE [msg. config. module: STRING] ■ 
BEGIN OPEN lODefs; 
WriteString[msg]; 
IF config. length # THEN 

BEGIN WriteString[config]; WriteChar[ '>]; END; 
WriteString[module]; 
SIGNAL BootAbort; 
RETURN 
END; 

GetKeyWord: PROCEDURE [keyword: STRING] RETURNS [term: CHARACTER] - 
BEGIN 

keyword, length <- 0; 
term <- GetToken[keyword]; 
IF term j^ ' : AND keyword. length # THEN 

BootmesaDefs.BootmesaError["Syntax Error. Expected KEYWORD:"L]; 
RETURN 
END; 

Parselnput: PUBLIC PROCEDURE ■ 
BEGIN OPEN StringDefs; 
term: CHARACTER; 
term ♦- GetKeyWord[keyword]; 
UNTIL term » NUL DO 

IF EqualString[keyword, "CONTROLS] THEN 
BEGIN 

term ^ GetModule[module, config]; 
AddControl[module. config]; 
END 
ELSE IF EqualString[keyword, "NUB"L] THEN 
BEGIN 

term *- GetModule[module. config]; 
AddNub[module, config]; 
END 
ELSE IF EqualString[keyword. "WART"L] THEN 
BEGIN 

term <- GetModule[module. config]; 
AddWart[module, config]; 
END 
ELSE IF EqualString[keyword, "RESIDENT"L] THEN 
BEGIN 
DO 

SELECT term ♦- GetModule[module, config] FROM 
•; «> EXIT; 

', «=> AddResident[module. config]; 
ENDCASE -> 

BootmesaModuleError["Syntax Error. Invalid modulelist at "L, 
config, module]; 
ENDLOOP; 
AddResident[module, config]; 
END 
ELSE IF EqualString[keyword, "SWAPPEDIN"L] THEN 
BEGIN 
DO 

SELECT term ♦- GetModule[modul0, config] FROM 
'; -> EXIT; 

', ■> AddSwappedIn[module, config]; 
ENDCASE -> 
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BootmesaModul0Error["Syntax Error. Invalid modulelist at "L. 
config, module]; 
ENDLOOP; 
AddSwappedIn[modul0, config]; 
END 
ELSE IF Equa1String[k0yword, "NOTRAP"L] THEN 
BEGIN 
DO 

SELECT term ^ GetModu1e[modul0, config] FROM 
'; -> EXIT; 

'. ■> AddNoTrap[modul0, config]; 
ENDCASE -> 

BootmesaModuleError["Syntax Error. Invalid modulelist at 'T, 
config. module]; 
ENDLOOP; 
AddNoTrap[module» config]; 
END 
ELSE IF EqualStringCkeyword, "GFT"L] THEN 
BEGIN 

length: CARDINAL; 
[term, length] <- GetNumber[]; 

IF term # •; THEN BootmesaError["Error. Invalid GFT Length"L]; 
BootmesaDefs.SetDefaultGFTLength[ length]; 
END 
ELSE IF EqualStringCkeyword, "MEMORVL] THEN 
BEGIN 

fp. Ip: CARDINAL; 
[term, fp] <- GetNumber[]; 

IF term # \ THEN BootmesaError["Error. Invalid Memory Bounds^'L]; 
[term, Ip] <- GetNumber[]; 

IF term # '; THEN BootmesaError["Error . Invalid Memory Bounds"L]; 
BootmesaDefs.SetDefaultMemoryLimits[fp.lp]; 
END 
ELSE IF EqualString[keyword. "PROCESSES'^] THEN 
BEGIN 

number: CARDINAL; 
[term, number] ♦- GetNumber[]; 

IF term # '; THEN BootmesaError["Error . Invalid Process Number"L]; 
BootmesaDefs.SetDefaultNPro cesses [number]; 
END 
ELSE IF EqualString[keyword. "CACHE"L] THEN 
BEGIN 

number: CARDINAL; 
[term, number] ♦- GetNumber[]; 

IF term # '; THEN BootmesaError["Error . Invalid Cache Siz0"L]; 
Boo tCacheDefs.SetDefaultCacheSize[ number]; 
END 
ELSE 

BEGIN OPEN lODefs; 

WriteString["Syntax Error. Expected Keyword: Found "L]; 
WriteString[ keyword]; 
WriteChar[term]; 
SIGNAL BootAbort; 
END; 
term *■ GetKeyWord[keyword]; 
ENDLOOP; 
RETURN; 
END; 

ModuleObject: TYPE - RECORD [ 
link: ModuleHandle. 
frame: Control Oefs .Global FrameHandle. 
module, config: STRING]; 

ModuleHandle: TYPE - POINTER TO ModuleObject; 

Control, Resident, Swappedin, Wart, Nub, NoTrap: ModuleHandle ^ NIL; 
lastResident, lastSwappedln , lastNoTrap: ModuleHandle ^ NIL; 

AddControl: PROCEDURE [module, config: STRING] - 
BEGIN OPEN SystemDefs; 

Control ^ AllocateHeapNode[SIZE[ModuleObject]]; 
Controlt <- [link: NIL, frame: ControlDef s.Nul IGlobalFrame. 

module: AllocateHeapString[module. length], 

config: AnocateHeapString[ config. length]]; 
StringDef s. Appends tring[Control .module, module]; 
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StringDefs. Appends tring[Control .conf ig. conf ig]; 
END; 

AddWart: PROCEDURE [module, config: STRING] ■ 
BEGIN OPEN SystemDefs; 

Wart ^ AnocateHeapNode[SIZE[Modu1eObject]3; 
Wartt ♦- [link: NIL, frame: ControlDef s.NullGlobalFrame, 

module: All ocateHeapString[module. length], 

config: AnocateHeapString[config. length]]; 
StringDef s. Appends tring[Wart.module, module]; 
StringDef s. Appends tring[Wart. conf ig, config]; 
END; 

AddNub: PROCEDURE [module, config: STRING] ■ 
BEGIN OPEN SystemDefs; 

Nub <- AnocateHeapNode[SIZE[ModuleObject]]; 
Nubt 4- [link: NIL, frame: ControlDef s .NullGlobalFrame, 
module: AllocateHeapString[module. length], 
config: Al locateHeapS tring[ conf ig. length]]; 
StringDef s. Appends tring[Nub. module, module]; 
StringDef s. Appends tring[Nub. conf ig. config]; 
END; 

AddResident: PROCEDURE [module, config: STRING] - 
BEGIN OPEN SystemDefs; 
m: ModuleHandle; 

m ♦- AllocateHeapNode[SIZE[ModuleObject]]; 
mt ^ [link: NIL, frame: ControlDefs.Nul IGlobalFrame, 
module: All oca teHeapSt ring [module. length] , 
config: AllocateHeapStringfconfig. length]]; 
StringDefs . Appends tring[m. module, module]; 
StringDef s. Appends tring[m. conf ig, config]; 

IF Resident » NIL THEN Resident *- m ELSE lastResident. 1 ink ^ m; 
lastResident <- m; 
END; 

AddSwappedIn: PROCEDURE [module, config: STRING] ■ 
BEGIN OPEN SystemDefs; 
m: ModuleHandle; 

m ♦" AllocateHeapNode[SIZE[ModuleObject]]; 
mt 4- [link: NIL, frame: ControlDefs.Nul IGlobalFrame, 
module: Al locateHeapString[module. length], 
config: Al 1 oca teHeapSt ring [conf ig. length]]; 
StringDef s. Appends tring[m. module, module]; 
StringDef s. Appends tring[m. conf ig. config]; 

IF Swappedin » NIL THEN Swappedin *- m ELSE lastSwappedln. 1 ink ♦- m; 
lastSwappedln ♦- m; 
END; 

AddNoTrap: PROCEDURE [module, config: STRING] - 
BEGIN OPEN SystemDefs; 
m: ModuleHandle; 

m 4- AllocateHeapNode[SIZE[ModuleObject]]; 
mt ♦- [link: NIL, frame: ControlDef s.Nul IGlobalFrame. 

module: AllocateHeapString[module. length], 

config: AnocateHeapString[conf ig. length]]; 
StringDef s. Appends tring[m. module, module]; 
StringDefs .Ap pen dString[m. config, config]; 
IF NoTrap « NIL THEN NoTrap ♦- m ELSE lastNoTrap. 1 ink ^ m; 
lastNoTrap <- m; 
END; 

UserControl: PUBLIC PROCEDURE RETURNS [f: ControlDef s .GlobalFrameHandle] 
BEGIN OPEN Control; 
IF Control - NIL THEN 

BEGIN 

IODefs.WriteLine["Warning: Null control modulel"L]; 

RETURN[ControlDef s.Nul IGlobalFrame]; 

END; 
IF conf ig. length # THEN SetConf ig[conf ig]; 
f <r frame ^ Frame[module]; 
IF frame - ControlDef s. NullGlobalFrame THEN 

IODefs.WriteLine["Warning: Null control modulel"L]; 
IF config. length ^ THEN ResetConf ig[]; 
END; 
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NubFrame: PUBLIC PROCEDURE RETURNS [f: ControlDef s .GlobalFrameHandle] ■ 
BEGIN OPEN Nub; 
IF Nub ■ NIL THEN 

BEGIN 

IODefs.WriteLine["Warning: Null Nubl"L]; 

RETURN[ControlDefs. Nun Global Frame]; 

END; 
IF config. length # THEN SetConf ig[conf 1g]; 
f ^ frame ♦- Frame[module]; 
IF frame ■ ControlDef s.NullGlobalFrame THEN 

IODefs.WriteLine["Warning: Null NubP'L]; 
IF config. length # THEN ResetConf ig[3; 
END; 

WartFrame: PUBLIC PROCEDURE RETURNS [f: ControlDef s. GlobalFrameHandle] ■ 
BEGIN OPEN Wart; 
IF Wart ■ NIL THEN 

BootmesaDefs.BootmesaError["Error No Wart"L]; 
IF config. length # THEN SetConf ig[config]; 
f ^ frame <- Frame[module]; 
IF frame ■ ControlDef s.Nul IGlobalFrame THEN 

BootmesaModuleError["Error Can't find Wart: "L. config, module]; 
IF config. length # THEN ResetConf ig[]; 
END; 

LookUpResidentModules: PUBLIC PROCEDURE - 
BEGIN 

m: ModuleHandle; 
FOR m ^ Resident, m.link UNTIL m - NIL DO 

OPEN m; 

IF config. length # THEN SetConf ig[config]; 

frame <- Frame[module]; 

IF frame « ControlDefs.Nul IGlobalFrame THEN 

BootmesaModuleError["Can' t find module: "L, config, module]; 

IF config. length # THEN ResetConf ig[]; 

ENDLOOP; 
END; 

EnumerateResidentModules: PUBLIC PROCEDURE [ 

proc: PROCEDURE [ControlDef s .GlobalFrameHandle] RETURNS [BOOLEAN]] 

RETURNS [ControlDefs. GlobalFrameHandle] - 

BEGIN 

m: ModuleHandle; 

FOR m ^ Resident, m.link UNTIL m - NIL DO 

IF proc[m. frame] THEN RETURN[m. frame]; 

ENDLOOP; 
RETURN[ControlDef s.Nul IGlobalFrame] 
END; 

SwapInUserCode: PUBLIC PROCEDURE ■ 
BEGIN 

m: ModuleHandle; 
FOR m «- Swappedin, m.link UNTIL m » NIL DO 

OPEN m; 

IF config. length # THEN SetConf ig[config]; 

frame <- Frame[module]; 

IF frame « ControlDef s.Nul IGlobalFrame THEN 

BootmesaModuleError["Can' t find module: "L, config, module]; 

SwapInFrame[f name] ; 

IF config. length # THEN ResetConf ig[]; 

ENDLOOP; 
END; 

NumberSwappedIn: PUBLIC PROCEDURE RETURNS [n: CARDINAL] - 
BEGIN 

m: ModuleHandle; 
n ^ 0; 

FOR m ♦- Swappedin, m.link UNTIL m - NIL DO n <- n + 1; ENDLOOP; 
RETURN[n] 
END; 

TurnOffStartTrap: PUBLIC PROCEDURE - 
BEGIN 

m: ModuleHandle; 

codebase: RECORD [fill: [0..77777B). trap: BOOLEAN]; 
codeseg: FakeSegDef s.FakeSegmentHandle; 
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FOR m 4- NoTrap. m.link UNTIL m ■ NIL DO 

OPEN m; 

IF config. length » THEN SetConf igCconf ig]; 

frame ♦■ Frame[module]; 

IF frame ■ ControlDefs.NullGlobalFrame THEN 

BootmesaMocluleError["Can't find module: "L, config, module]; 

codebase *- BootCacheDefs.READ[0fram9.code]; 

codeseg ^ BootCacheDefs.READ[0frame.codesegment]; 

IF ~codeseg.SwappedIn THEN 

BootmesaModuleError[*'Module not swapped in: "L, config, module]; 

codebase. trap ^ FALSE; 

codebase ^ LOOPHOLE[LOOPHOLE[codebase. CARDINAL]+ codeseg. VMaddress]; 

Boo tCacheDefs.WRITE[0frame. code, codebase]; 

IF config. length # THEN ResetConf ig[]; 

ENDLOOP; 
END; 

UnlockUserCode: PUBLIC PROCEDURE ■ 
BEGIN 

m: ModuleHandle; 
FOR m ^ Swappedln. m.link UNTIL m ■ NIL DO 

UnlockFrame[m. frame]; 

ENDLOOP; 
END; 

CloseSource: PUBLIC PROCEDURE - 
BEGIN OPEN SystemDefs; 
m: ModuleHandle; 
source. destroy [source]; 
FOR m <- Resident. Resident UNTIL m ■ NIL DO 

Resident ^ m. 1 ink; 

FreeHeapString[m. config]; 

FreeHeapString[m.module]; 

FreeHeapNode[m]; 

ENDLOOP; 
FOR m ^ Swappedln, Swappedln UNTIL m - NIL DO 

Swappedln *- m. 1 ink; 

FreeHeapString[m. config]; 

FreeHeapString[m. module]; 

FreeHeapNode[m]; 

ENDLOOP; 
FOR m <- NoTrap, NoTrap UNTIL m ■ NIL DO 

NoTrap <- m.link; 

FreeHeapString[m. config]; 

FreeHeapString[m. module]; 

FreeHeapNode[m]; 

ENDLOOP; 
IF Nub » NIL THEN 

BEGIN 

FreeHeapString [Nub. config]; 

FreeHeapString[Nub .module]; 

FreeHeapNode[Nub]; 

Nub ^ NIL; 

END; 
IF Wart » NIL THEN 

BEGIN 

FreeHeapString[Wart. config]; 

FreeHeapString[Wart. module]; 

FreeHeapNode[Wart]; 

Wart <- NIL; 

END; 
IF Control # NIL THEN 

BEGIN 

FreeHeapString[Control .config]; 

FreeHeapString[Control .module]; 

FreeHeapNode[Control]; 

Control ♦- NIL; 

END; 
END; 

END... 



